home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / IntlResources.lisp < prev    next >
Encoding:
Text File  |  1993-09-16  |  12.1 KB  |  314 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; 
  3. ;     File:        IntlResources.p
  4. ; 
  5. ;     Copyright:    © 1983-1993 by Apple Computer, Inc.
  6. ;                 All rights reserved.
  7. ; 
  8. ;     Version:    System 7.1 for ETO #11
  9. ;     Created:    Tuesday, March 30, 1993 18:00
  10. ; 
  11. ; 
  12.  
  13. ; $IFC UNDEFINED UsingIncludes
  14. ; $SETC UsingIncludes := 0
  15. ; $ENDC
  16.  
  17. ; $IFC NOT UsingIncludes
  18.  
  19. ; $ENDC
  20.  
  21. ; $IFC UNDEFINED UsingIntlResources
  22. ; $SETC UsingIntlResources := 1
  23.  
  24. ; $I+
  25. ; $SETC IntlResourcesIncludes := UsingIncludes
  26. ; $SETC UsingIncludes := 1
  27. ; $IFC UNDEFINED UsingTypes
  28.  
  29. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  30. ; $ENDC
  31. ; $SETC UsingIncludes := IntlResourcesIncludes
  32.  
  33. ;  Bits in the itlcFlags byte.
  34. (defconstant $itlcShowIcon 7)   ; Show icon even if only one script
  35. (defconstant $itlcDualCaret 6)  ; Use dual caret for mixed direction text
  36.  
  37. ;  Bits in the itlcSysFlags word.
  38. (defconstant $itlcSysDirection 15); System direction - left to right/right to left
  39.  
  40. ;  the NumberParts indices 
  41. (defconstant $tokLeftQuote 1)
  42. (defconstant $tokRightQuote 2)
  43. (defconstant $tokLeadPlacer 3)
  44. (defconstant $tokLeader 4)
  45. (defconstant $tokNonLeader 5)
  46. (defconstant $tokZeroLead 6)
  47. (defconstant $tokPercent 7)
  48. (defconstant $tokPlusSign 8)
  49. (defconstant $tokMinusSign 9)
  50. (defconstant $tokThousands 10)
  51. (defconstant $tokSeparator 12)  ; 11 is a reserved field
  52. (defconstant $tokEscape 13)
  53. (defconstant $tokDecPoint 14)
  54. (defconstant $tokEPlus 15)
  55. (defconstant $tokEMinus 16)
  56. (defconstant $tokMaxSymbols 31)
  57.  
  58. (defconstant $curNumberPartsVersion 1); current version of NumberParts record
  59.  
  60. (defconstant $currSymLead 16)
  61. (defconstant $currNegSym 32)
  62. (defconstant $currTrailingZ 64)
  63. (defconstant $currLeadingZ 128)
  64.  
  65. (defconstant $zeroCycle 1)      ; 0:00 AM/PM format
  66. (defconstant $longDay 0)        ; day of the month
  67. (defconstant $longWeek 1)       ; day of the week
  68. (defconstant $longMonth 2)      ; month of the year
  69. (defconstant $longYear 3)       ; year
  70. (defconstant $supDay 1)         ; suppress day of month
  71. (defconstant $supWeek 2)        ; suppress day of week
  72. (defconstant $supMonth 4)       ; suppress month
  73. (defconstant $supYear 8)        ; suppress year
  74. (defconstant $dayLdingZ 32)
  75. (defconstant $mntLdingZ 64)
  76. (defconstant $century 128)
  77. (defconstant $secLeadingZ 32)
  78. (defconstant $minLeadingZ 64)
  79. (defconstant $hrLeadingZ 128)
  80.  
  81. ;  Date Orders 
  82. (defconstant $mdy 0)
  83. (defconstant $dmy 1)
  84. (defconstant $ymd 2)
  85. (defconstant $myd 3)
  86. (defconstant $dym 4)
  87. (defconstant $ydm 5)
  88.  
  89. (defrecord OffPair 
  90.    (offFirst :SIGNED-INTEGER)
  91.    (offSecond :SIGNED-INTEGER)
  92.    )
  93.  
  94. (defrecord OffsetTable (array (ARRAY :OFFPAIR 3)))
  95.  
  96. (def-mactype :INTL0PTR (find-mactype :POINTER))
  97. (def-mactype :INTL0HNDL (find-mactype :HANDLE))
  98. (defrecord (Intl0Rec :handle) 
  99.    (decimalPt :CHARACTER)       ; decimal point character
  100.    (thousSep :CHARACTER)        ; thousands separator character
  101.    (listSep :CHARACTER)         ; list separator character
  102.    (currSym1 :CHARACTER)        ; currency symbol
  103.    (currSym2 :CHARACTER)
  104.    (currSym3 :CHARACTER)
  105.    (currFmt :UNSIGNED-BYTE)     ; currency format flags
  106.    (dateOrder :UNSIGNED-BYTE)   ; order of short date elements: mdy, dmy, etc.
  107.    (shrtDateFmt :UNSIGNED-BYTE) ; format flags for each short date element
  108.    (dateSep :CHARACTER)         ; date separator character
  109.    (timeCycle :UNSIGNED-BYTE)   ; specifies time cycle: 0..23, 1..12, or 0..11
  110.    (timeFmt :UNSIGNED-BYTE)     ; format flags for each time element
  111.    (mornStr :OSTYPE)            ; trailing string for AM if 12-hour cycle
  112.    (eveStr :OSTYPE)             ; trailing string for PM if 12-hour cycle
  113.    (timeSep :CHARACTER)         ; time separator character
  114.    (time1Suff :CHARACTER)       ; trailing string for AM if 24-hour cycle
  115.    (time2Suff :CHARACTER)
  116.    (time3Suff :CHARACTER)
  117.    (time4Suff :CHARACTER)
  118.    (time5Suff :CHARACTER)       ; trailing string for PM if 24-hour cycle
  119.    (time6Suff :CHARACTER)
  120.    (time7Suff :CHARACTER)
  121.    (time8Suff :CHARACTER)
  122.    (metricSys :UNSIGNED-BYTE)   ; 255 if metric, 0 if inches etc.
  123.    (intl0Vers :SIGNED-INTEGER)  ; region code (hi byte) and version (lo byte)
  124.    )
  125.  
  126. (def-mactype :INTL1PTR (find-mactype :POINTER))
  127. (def-mactype :INTL1HNDL (find-mactype :HANDLE))
  128. (defrecord (Intl1Rec :handle) 
  129.    (days (:ARRAY (:STRING 15) 7)); day names
  130.    (months (:ARRAY (:STRING 15) 12)); month names
  131.    (suppressDay :UNSIGNED-BYTE) ; 255 for no day, or flags to suppress any element
  132.    (lngDateFmt :UNSIGNED-BYTE)  ; order of long date elements
  133.    (dayLeading0 :UNSIGNED-BYTE) ; 255 for leading 0 in day number
  134.    (abbrLen :UNSIGNED-BYTE)     ; length for abbreviating names
  135.    (st0 :OSTYPE)                ; separator strings for long date format
  136.    (st1 :OSTYPE)
  137.    (st2 :OSTYPE)
  138.    (st3 :OSTYPE)
  139.    (st4 :OSTYPE)
  140.    (intl1Vers :SIGNED-INTEGER)  ; region code (hi byte) and version (lo byte)
  141.    (localRtn (:ARRAY :SIGNED-INTEGER 1)); now a flag for opt extension
  142.    )
  143.  
  144. (def-mactype :UNTOKENTABLEPTR (find-mactype :POINTER))
  145. (def-mactype :UNTOKENTABLEHANDLE (find-mactype :HANDLE))
  146. (defrecord (UntokenTable :handle) 
  147.    (len :SIGNED-INTEGER)
  148.    (lastToken :SIGNED-INTEGER)
  149.    (index (:ARRAY :SIGNED-INTEGER 256)); index table; last = lastToken
  150.    )
  151.  
  152. (defrecord WideChar 
  153.    (:variant 
  154.  
  155.       ((a (:ARRAY :CHARACTER 2))); 0 is the high order character
  156.  
  157.       ((b :SIGNED-INTEGER))
  158.       ))
  159.  
  160. (defrecord WideCharArr 
  161.    (size :SIGNED-INTEGER)
  162.    (data (:ARRAY :WIDECHAR 10))
  163.    )
  164.  
  165. (def-mactype :NUMBERPARTSPTR (find-mactype :POINTER))
  166. (defrecord NumberParts 
  167.    (version :SIGNED-INTEGER)
  168.    (data (:ARRAY :WIDECHAR 31)) ; index by [tokLeftQuote..tokMaxSymbols]
  169.    (pePlus :WIDECHARARR)
  170.    (peMinus :WIDECHARARR)
  171.    (peMinusPlus :WIDECHARARR)
  172.    (altNumTable :WIDECHARARR)
  173.    (reserved (:ARRAY :CHARACTER 20))
  174.    )
  175.  
  176. (def-mactype :ITL4PTR (find-mactype :POINTER))
  177. (def-mactype :ITL4HANDLE (find-mactype :HANDLE))
  178. (defrecord (Itl4Rec :handle) 
  179.    (flags :SIGNED-INTEGER)      ; reserved
  180.    (resourceType :SIGNED-LONG)  ; contains 'itl4'
  181.    (resourceNum :SIGNED-INTEGER); resource ID
  182.    (version :SIGNED-INTEGER)    ; version number
  183.    (resHeader1 :SIGNED-LONG)    ; reserved
  184.    (resHeader2 :SIGNED-LONG)    ; reserved
  185.    (numTables :SIGNED-INTEGER)  ; number of tables, one-based
  186.    (mapOffset :SIGNED-LONG)     ; offset to table that maps byte to token
  187.    (strOffset :SIGNED-LONG)     ; offset to routine that copies canonical string
  188.    (fetchOffset :SIGNED-LONG)   ; offset to routine that gets next byte of character
  189.    (unTokenOffset :SIGNED-LONG) ; offset to table that maps token to canonical string
  190.    (defPartsOffset :SIGNED-LONG); offset to default number parts table
  191.    (resOffset6 :SIGNED-LONG)    ; reserved
  192.    (resOffset7 :SIGNED-LONG)    ; reserved
  193.    (resOffset8 :SIGNED-LONG)    ; reserved
  194.    )
  195.  
  196. ;  New NItl4Rec for System 7.0: 
  197.  
  198. (def-mactype :NITL4PTR (find-mactype :POINTER))
  199. (def-mactype :NITL4HANDLE (find-mactype :HANDLE))
  200. (defrecord (NItl4Rec :handle) 
  201.    (flags :SIGNED-INTEGER)      ; reserved
  202.    (resourceType :SIGNED-LONG)  ; contains 'itl4'
  203.    (resourceNum :SIGNED-INTEGER); resource ID
  204.    (version :SIGNED-INTEGER)    ; version number
  205.    (format :SIGNED-INTEGER)     ; format code
  206.    (resHeader :SIGNED-INTEGER)  ; reserved
  207.    (resHeader2 :SIGNED-LONG)    ; reserved
  208.    (numTables :SIGNED-INTEGER)  ; number of tables, one-based
  209.    (mapOffset :SIGNED-LONG)     ; offset to table that maps byte to token
  210.    (strOffset :SIGNED-LONG)     ; offset to routine that copies canonical string
  211.    (fetchOffset :SIGNED-LONG)   ; offset to routine that gets next byte of character
  212.    (unTokenOffset :SIGNED-LONG) ; offset to table that maps token to canonical string
  213.    (defPartsOffset :SIGNED-LONG); offset to default number parts table
  214.    (whtSpListOffset :SIGNED-LONG); offset to white space code list
  215.    (resOffset7 :SIGNED-LONG)    ; reserved
  216.    (resOffset8 :SIGNED-LONG)    ; reserved
  217.    (resLength1 :SIGNED-INTEGER) ; reserved
  218.    (resLength2 :SIGNED-INTEGER) ; reserved
  219.    (resLength3 :SIGNED-INTEGER) ; reserved
  220.    (unTokenLength :SIGNED-INTEGER); length of untoken table
  221.    (defPartsLength :SIGNED-INTEGER); length of default number parts table
  222.    (whtSpListLength :SIGNED-INTEGER); length of white space code list
  223.    (resLength7 :SIGNED-INTEGER) ; reserved
  224.    (resLength8 :SIGNED-INTEGER) ; reserved
  225.    )
  226.  
  227. (defrecord TableDirectoryRecord 
  228.    (tableSignature :OSTYPE)     ; 4 byte long table name 
  229.    (reserved :SIGNED-LONG)      ; Reserved for internal use 
  230.    (tableStartOffset :SIGNED-LONG); Table start offset in byte
  231.    (tableSize :SIGNED-LONG)     ; Table size in byte
  232.    )
  233.  
  234. (defrecord Itl5Record 
  235.    (versionNumber :SIGNED-LONG) ; itl5 resource version number 
  236.    (numberOfTables :SIGNED-INTEGER); Number of tables it contains 
  237.    (reserved (:ARRAY :SIGNED-INTEGER 3)); Reserved for internal use 
  238.    (tableDirectory (:ARRAY :TABLEDIRECTORYRECORD 1)); Table directory records 
  239.    )
  240.  
  241. (defrecord RuleBasedTrslRecord 
  242.    (sourceType :SIGNED-INTEGER) ; Transliterate target type for the LHS of the rule 
  243.    (targetType :SIGNED-INTEGER) ; Transliterate target type for the RHS of the rule 
  244.    (formatNumber :SIGNED-INTEGER); Transliterate resource format number 
  245.    (propertyFlag :SIGNED-INTEGER); Transliterate property flags 
  246.    (numberOfRules :SIGNED-INTEGER); Number of rules following this field 
  247.    )
  248.  
  249. (defrecord ItlcRecord 
  250.    (itlcSystem :SIGNED-INTEGER) ; default system script
  251.    (itlcReserved :SIGNED-INTEGER); reserved
  252.    (itlcFontForce :SIGNED-BYTE) ; default font force flag
  253.    (itlcIntlForce :SIGNED-BYTE) ; default intl force flag
  254.    (itlcOldKybd :SIGNED-BYTE)   ; MacPlus intl keybd flag
  255.    (itlcFlags :SIGNED-BYTE)     ; general flags
  256.    (itlcIconOffset :SIGNED-INTEGER); keyboard icon offset; not used in 7.0
  257.    (itlcIconSide :SIGNED-BYTE)  ; keyboard icon side; not used in 7.0
  258.    (itlcIconRsvd :SIGNED-BYTE)  ; rsvd for other icon info
  259.    (itlcRegionCode :SIGNED-INTEGER); preferred verXxx code
  260.    (itlcSysFlags :SIGNED-INTEGER); flags for setting system globals
  261.    (itlcReserved4 (:ARRAY :SIGNED-BYTE 32)); for future use
  262.    )
  263.  
  264. (defrecord ItlbRecord 
  265.    (itlbNumber :SIGNED-INTEGER) ; itl0 id number
  266.    (itlbDate :SIGNED-INTEGER)   ; itl1 id number
  267.    (itlbSort :SIGNED-INTEGER)   ; itl2 id number
  268.    (itlbFlags :SIGNED-INTEGER)  ; Script flags
  269.    (itlbToken :SIGNED-INTEGER)  ; itl4 id number
  270.    (itlbEncoding :SIGNED-INTEGER); itl5 ID # (optional; char encoding)
  271.    (itlbLang :SIGNED-INTEGER)   ; current language for script 
  272.    (itlbNumRep :SIGNED-BYTE)    ; number representation code
  273.    (itlbDateRep :SIGNED-BYTE)   ; date representation code 
  274.    (itlbKeys :SIGNED-INTEGER)   ; KCHR id number
  275.    (itlbIcon :SIGNED-INTEGER)   ; ID # of SICN or kcs#/kcs4/kcs8 suite.
  276.    )
  277.  
  278. ;  New ItlbExtRecord structure for System 7.0 
  279.  
  280. (defrecord ItlbExtRecord 
  281.    (base :ITLBRECORD)           ; un-extended ItlbRecord
  282.    (itlbLocalSize :SIGNED-LONG) ; size of script's local record
  283.    (itlbMonoFond :SIGNED-INTEGER); default monospace FOND ID
  284.    (itlbMonoSize :SIGNED-INTEGER); default monospace font size
  285.    (itlbPrefFond :SIGNED-INTEGER); preferred FOND ID
  286.    (itlbPrefSize :SIGNED-INTEGER); preferred font size
  287.    (itlbSmallFond :SIGNED-INTEGER); default small FOND ID
  288.    (itlbSmallSize :SIGNED-INTEGER); default small font size
  289.    (itlbSysFond :SIGNED-INTEGER); default system FOND ID
  290.    (itlbSysSize :SIGNED-INTEGER); default system font size
  291.    (itlbAppFond :SIGNED-INTEGER); default application FOND ID
  292.    (itlbAppSize :SIGNED-INTEGER); default application font size
  293.    (itlbHelpFond :SIGNED-INTEGER); default Help Mgr FOND ID
  294.    (itlbHelpSize :SIGNED-INTEGER); default Help Mgr font size
  295.    (itlbValidStyles :STYLE)     ; set of valid styles for script
  296.    (itlbAliasStyle :STYLE)      ; style (set) to mark aliases
  297.    )
  298.  
  299. ; $ENDC                         ;  UsingIntlResources 
  300.  
  301. ; $IFC NOT UsingIncludes
  302.  
  303. ; $ENDC
  304.  
  305.  
  306. (export '($YDM $DYM $MYD $YMD $DMY $MDY $HRLEADINGZ $MINLEADINGZ $SECLEADINGZ
  307.           $CENTURY $MNTLDINGZ $DAYLDINGZ $SUPYEAR $SUPMONTH $SUPWEEK $SUPDAY
  308.           $LONGYEAR $LONGMONTH $LONGWEEK $LONGDAY $ZEROCYCLE $CURRLEADINGZ
  309.           $CURRTRAILINGZ $CURRNEGSYM $CURRSYMLEAD $CURNUMBERPARTSVERSION
  310.           $TOKMAXSYMBOLS $TOKEMINUS $TOKEPLUS $TOKDECPOINT $TOKESCAPE
  311.           $TOKSEPARATOR $TOKTHOUSANDS $TOKMINUSSIGN $TOKPLUSSIGN $TOKPERCENT
  312.           $TOKZEROLEAD $TOKNONLEADER $TOKLEADER $TOKLEADPLACER $TOKRIGHTQUOTE
  313.           $TOKLEFTQUOTE $ITLCSYSDIRECTION $ITLCDUALCARET $ITLCSHOWICON))
  314. (provide-interface 'IntlResources)